* src/alloc.c (cleanup_vector): Fix --enable-check-lisp-object-type build.

diff --git a/src/alloc.c b/src/alloc.c
index 750ffbd2dd8251146d4716e437ab7dc96cdda645..514810b83fad509a2add3dfe9f33b7be3b038ba5 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3161,7 +3161,7 @@ cleanup_vector (struct Lisp_Vector *vector)
     {
       struct Lisp_Subr *subr =
        PSEUDOVEC_STRUCT (vector, Lisp_Subr);
-      if (subr->native_comp_u[0])
+      if (!NILP (subr->native_comp_u[0]))
        {
          xfree (subr->symbol_name);
          xfree (subr->native_c_name[0]);